home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / win-fort.zip / FWCLOCK.FD < prev    next >
Text File  |  1991-11-03  |  4KB  |  134 lines
  1. C
  2. C Define menu items for Fortran compiler
  3. C
  4.       INTEGER*2 IDM_CHIMES,IDM_SOLIDHANDS,IDM_SECONDSICON
  5.       INTEGER*2 IDM_TIMEZONE,IDM_EXIT,IDM_ABOUT
  6.       PARAMETER (IDM_CHIMES=     100)
  7.       PARAMETER (IDM_SOLIDHANDS= 101)
  8.       PARAMETER (IDM_SECONDSICON=102)
  9.       PARAMETER (IDM_TIMEZONE=   103)
  10.       PARAMETER (IDM_EXIT=       104)
  11.       PARAMETER (IDM_ABOUT=      105)
  12. C
  13. C Parameters
  14. C
  15. C PI       o REAL pi.
  16. C
  17. C ZINC     o REAL Angle increment for 1 minute, in radians.
  18. C
  19.       REAL PI,ZINC
  20.       PARAMETER (PI=3.1415926536)
  21.       PARAMETER (ZINC=PI/60.0*2.0)
  22. C
  23. C General variables
  24. C
  25. C HINST    o INTEGER*2 Records the current instance of FWClock
  26. C            application.
  27. C
  28. C HWND     o INTEGER*2 Records the handle of the main FWClock window.
  29. C
  30. C WSTATUS  o INTEGER*4 Get status returns etc from Window functions. This
  31. C            variable is INTEGER*4 so that it can be used for both the BOOL
  32. C            and DWORD Windows functions.
  33. C
  34. C FWCPS    o RECORD /PAINTSTRUCT/ Paint control structure for FWClock.
  35. C
  36. C MYTIMER  o INTEGER*2 Handle of FWClock's timer.
  37. C
  38.       INTEGER*2 HINST,HWND
  39.       INTEGER*4 WSTATUS
  40.       RECORD /PAINTSTRUCT/ FWCPS
  41.       INTEGER*2 MYTIMER
  42. C
  43. C IMANICON
  44. C          o LOGICAL .TRUE. when FWClock has been iconised.
  45. C
  46. C SECONDSICON
  47. C          o LOGICAL .TRUE. if seconds hand should be displayed in icon.
  48. C
  49. C SOLIDHANDS
  50. C          o LOGICAL .TRUE. when solid hands should be drawn for the open
  51. C            window, .FALSE. for outlines only.
  52. C
  53. C CHIMES   o LOGICAL .TRUE. when the clock should chime once an hour.
  54. C
  55. C DWIDTH and DHEIGHT
  56. C          o INTEGER*2 The width and height of the display in pixels.
  57. C
  58. C HASPECT and VASPECT
  59. C          o INTEGER The horizontal (width) and vertical (height) size
  60. C            of the display.
  61. C
  62. C VARATIO  o REAL Vertical aspect ratio, VASPECT/HASPECT.
  63. C
  64. C WWIDTH and WHEIGHT
  65. C          o INTEGER*2 The width and height of the main FWClock window
  66. C            in pixels.
  67. C
  68. C RCLOCK   o RECORD /RECT/ The region occupied by the window.
  69. C
  70. C TRECT    o RECORD /RECT/ Temporary rectangle structure.
  71. C
  72.       LOGICAL IMANICON,SECONDSICON,SOLIDHANDS,CHIMES
  73.       INTEGER*2 DWIDTH,DHEIGHT
  74.       INTEGER HASPECT,VASPECT
  75.       REAL VARATIO
  76.       INTEGER*2 WWIDTH,WHEIGHT
  77.       RECORD /RECT/ RCLOCK,TRECT
  78. C
  79. C FBRUSH and BBRUSH
  80. C          o INTEGER*2 The handles for foreground and background brushes
  81. C            for drawing operations.
  82. C
  83. C FPEN and BPEN
  84. C          o INTEGER*2 The handles for the foreground and background pens
  85. C            for drawing operations.
  86. C
  87. C FPENCOLOUR and BPENCOLOUR
  88. C          o INTEGER*4 The colour descriptors of the foreground and background
  89. C            pens.
  90. C
  91.       INTEGER*2 FBRUSH,BBRUSH,FPEN,BPEN
  92.       INTEGER*4 FPENCOLOUR,BPENCOLOUR
  93. C
  94. C AXC and AYC
  95. C          o INTEGER*2 The coordinates of the centre of the analogue clock
  96. C            face in the window.
  97. C
  98. C RADIUS   o INTEGER*2 The radius of the analoge clock face.
  99. C
  100.        INTEGER AXC,AYC,RADIUS
  101. C
  102. C HOURS, MINS and SECS
  103. C          o INTEGER*2 These hold the current time.
  104. C
  105. C OHOURS, OMINS and OSECS
  106. C          o INTEGER*2 These hold the last time displayed.
  107. C
  108.       INTEGER*2 HOURS,MINS,SECS
  109.       INTEGER*2 OHOURS,OMINS,OSECS
  110. C
  111. C SHANDV(2,0:59)
  112. C          o RECORD /POINT/ Vector tables for second hand.
  113. C
  114. C HHAND2(0:59)
  115. C          o RECORD /POINT/ Vector table for iconic hour hand.
  116. C
  117. C MHAND2(0:59)
  118. C          o RECORD /POINT/ Vector tables for iconic minute hand.
  119. C
  120.       RECORD /POINT/ SHANDV(2,0:59)    ! Second hand device vectors
  121.       RECORD /POINT/ HHAND2(0:59)      ! Iconic hour hand device vectors
  122.       RECORD /POINT/ MHAND2(0:59)      ! Iconic minute hand device vectors
  123. C
  124. C Common block
  125. C
  126.       COMMON /FWCLOCK/HINST,HWND,WSTATUS,FWCPS,MYTIMER,
  127.      *                IMANICON,SECONDSICON,SOLIDHANDS,CHIMES,
  128.      *                WWIDTH,WHEIGHT,DWIDTH,DHEIGHT,HASPECT,VASPECT,
  129.      *                VARATIO,
  130.      *                RCLOCK,TRECT,FBRUSH,BBRUSH,FPEN,BPEN,
  131.      *                FPENCOLOUR,BPENCOLOUR,AXC,AYC,RADIUS,
  132.      *                HOURS,MINS,SECS,OHOURS,OMINS,OSECS,
  133.      *                SHANDV,HHAND2,MHAND2
  134.